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5 
$ep-1984 02:23:24 VAX=11 Bliss=32_ V4.0-742 Pa 1 
ety 7 93:88:03 DISKSVMSMASTER:CMTAACP. SRCJLOGIO.B32; 1° (1) 


v04=000' 


| 
MODULE LOGIO (LANGUAGE (BLISS32) , | 
IDENT = ' 
BEGIN 


Searens 


PSPSPS S ESSE ESET TTT TTT TT TTT eT creer erie circ ici iii iii iit i tii i iti iiiiiiiit) 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN  ACCORDAN THE TERMS OF SUCH H_THE 


oo 
oO 


; 

3 4 

3 5 1 

: $ 1 

; 1 * 

; 8 08 1 * | 

$ g 4484 1 * 

; 10 010 1 * 

; 1; 001, ; * 

5 ® 

: 48 O18 : | 

; % 0014 1 !* CE WITH U LICENSE AND WIT # 

; 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTH * 

: 16 Bag 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

; 17 001 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

: + dt : 7 TRANSFERRED. * 

; .* * 

: 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

3 $$ 0058 : in CORPORATION. * 

3 ‘s * 

; a 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

: 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

; @ 0026 1 !* . 

zs 0027 1 !* * 

4 4 Be : 1 LRA AAARE RARER AAAAAEAA REAR AEE | 

; 1 

; $6 6080 1 144 

; 33 $032 i FACILITY: MTAACP | 

3 35 0038 1! 

; $e 0034 1 ! ABSTRACT: 

; 5 0035 1! This module handles logical I0. 

3 $$ O06 1! 

; 7 0037 1! 

: 3 0038 1 ! ENVIRONMENT: 

3 9 0039 1! 

: 40 0040 1! Starlet operating system, including privileged system services 

. 0041 1! and internal exec routines. 

; 4 Bne6 1! 

oe 0043 1 i-- 

; (46 Boe 1 

3; 65 045 1! 

; 46 0046 1! 

; rts : : AUTHOR: D. H. GILLESPIE, CREATION DATE: 14-JUL-1977 

; rh eh : MODIFIED BY: 

: 24 ae eg. V03-009 HH0041 Hai Huang 24-Jul-1984 

; 6 O3¢ ' Remove REQUIRE ‘LIBD$:CVASLIB.OBJJMOUNTMSG.B32'. 

: 34 054 1! v03-008 ROW0258 Ralph 0. Weber 21-NOV-1983 

ee a7 ae The Paul Painter Memorial Enhancement 

3 28 926 3 Named for one of the unfortunate customers who suffered much 

. § 0057 1! to determine the great UCBSL_MT_RECORD secret while trying to 
| 


1b-sep-19 4 Te ee VAX-11 Bliss-32 V4.0-742 


4 Page 2) 
14-Sep-1984 6:42 DISKSVMSMASTER: CMTAACP.SRCILOGIO.832;1 (1) 


—— 


; 28 O38 1! create a user-written magtape driver, this change eliminates : 
3 use of the device dependent field, UCBSL MT_RECORD in favor of ° 
; < B99 : the device independent field, UCBS$L_RECORD. ‘ 
; § Oo¢ 1; v03-007 $TJ3101 Steven T. Jeffreys. 24-May-1983 ‘ 
; o7 Re? : Removed reference to obsolete IOSM_INTSKIP. | ‘ 
; 63 065 1! V03-006 MMD0172 Meg Dumont, | 9-May-1983 15:14 | ; 
; 66 $98 : Fix to make USER_STATUS defined consistently within module ° 
: 68 0068 1 | V03-005 MMD0101 Meg Duront 17-Feb-1983 12:56 | : 
; 3 534 } Use routine GET_DEV_NAME to get tape unit device name. | : 
; 4 a : v03-004 MMD0004 Meg Dumont, 21-Jan-1983 12:32 : 
aS $078 2% Change COMPLETE_VIO so it always puts an ABORT status | ‘ 
: it 0074 1 in the 10 to complete | : 
; 0076 1! v03-003 MMD0003 nog Dumont 3-Jan-1983 15:39 : 
s. 0077 1! Add the modifier IOSM_CLRSEREXCP to all Q10's issued by MTAACP, ‘ 
; re ith ' necessary for the MSCP tape drives. | ; 
; & 0080 1! v03-002 mMD0002 Meg Dumont, 5-Nov-1982 16:38 ‘ 
i oe 0081 1! Support for read record reverse. Support for the streaming tape : 
g B¢ 0082 1! drives, which forces all outstanding 1/0's to complete ‘ 
; § 0085 1! before prosesarns continues on a Serious Exception. Support ‘ 
; ge bone : for completing all 1/0's to the user when USER EOT mode is set. : 
; 86 0086 1! v03-001 MMD0001 neg Dumont 2-Jul-1982 12:08 ‘ 
; 44 4 $4 : Add RETURN to ISSUE_IO to tix getting INFO message ‘ 
; 4 494 : V02-004 REFORMAT Maria del C. Nasr 30-Jun-1980 : 
; 91 0091 1: 00003 MmCN0009 Maria del C. Nasr 20-Nov-1979 12:00 | : 
; 36 0092 1! The STATUS code from a Q10 is returned in low 16 bits of : 
 % 0095 1! longword. Fix check for STATUS to <0,16>. ‘ 
;: & 0094 1! : 
; 0095 1 !! : 
; © R298 1 !ee ; 
5; WT 0097 1 : 
> 98 0098 1 LIBRARY 'SYSSLIBRARY:LIB.L32'; : 
; 0099 1 ‘ 
; 100 0100 1 : 
; 101 0101 1 REQUIRE ‘SRCS$:MTADEF .B32'; ° 
; 106 a : 
3 10 0486 1 FORWARD ROUTINE | : 
: 104 0487 1 ADJTM : COMMON CALL NOVALUE, ! adjust tape mark count ; 
; 105 0488 1 CHCK_IO_CLR_EXCP : COMMON_CALL NOVALUE, i Check to get all io's from : 
3 106 489 1 ! device and clear serious expt : 
; 0 90 1 COMPLETE_VIO : COMMON_CALL NOVALUE, ' complete virtual io in error : 
; 108 " 9 ISSUE_10 : LSISSUE 10, ! issue : 
: 109 3 1 READ_BLOCK : COMMON_CALL, ! read logical block ; : 
: 110 oF READ BLOCK _REVERSE : COMMON CALL : read backwards one logical block : 
: 111 49% 1 REPOSITION” : LSREPOSITION NOVALUE, i reposition tape | : 
; ig 95 1 RESTORE_POS : NOVALUE COMMON_CALL, | : 
3 +38 1 SPACE : COMMON_CALL, ! space blocks : 
3; (116 0497 1 SPACE_TM : COMMON_CALL NOVALUE, ! space tape marks 


0G10 1hese $ep-1984 02:23:24 VAX-11 Bliss-32 V4.0-742 3 
-000 12-9 08- 1 3be 93: 46:42 DISKSVMSMASTER: CMTAACP. SRCILOGIO. B32. 79 ea. 
04 UNBLOCK_SPACE : COMMON CALL WOVALUE. ! unblock for SPACE_TM 
WRITE_BCOCK : COMMON_CALL NOVALU i write logical block 
WRITE_TM : NOVALUE LSWRITE_ Hae’ i write one tape mark 
TERNAL 
CURRENT_UCB : REF BBLOCK, ' address of current unit control block 
10_ cH HANREL, ' address of JO channet 
10-STATUS, } 10 status 


USER_STATUS : VECTOR (2); user status 


| 
EXTERNAL ROUTINE 
GET_DEV_NAM : COMMON_CALL NOVALUE, given UCB addr get dev name 

complete 10 


—s 2) ss 4 bs 2 —d _» _b _» _» —» _4 _»b _» _» _» 


— 3 
OSS RSVOO RO Olen 


— tt 1 OCD oO ~o 
tS YS 1 
m 


PUPP SVS 


0 MOONT_VOL : COMM mount volume 

0 PRINT_OPR_MSG : (SPRINT. OpR “MSG, print an operator message 
0 RESET _UNIT : COMMON a 

SYS$QTOW : ADDRESSING “MODE (ABSOLUTE); !' queue io request 


] 

5 | 

LOGIO 1bese =1984 02:23:24 VAX-11 Bliss-32 4 

yOe-000 14- Sep- 1984 93: :46:42  DISKSVMSMASTER:CMTAACP.SRCJLOGIO.832;1 (2) | 
: 13 1} GLOBAL ROUTINE READ.BLOCK (ADDR, LEN) : COMMON CALL = | 
BB 18 1 !+¢ ; 
: 4 19 41 | 
: 4 3 01: FUNCTIONAL DESCRIPTION: : 
; 12D 1 1 This routine reads a logical record from magnetic tape. | ; 
: 141 ; § | i caLcing sequence: 3 
: 146 03 : : READ _BLOCK (ARG1 ,ARG2) : 
; 144 366 1 | INPUT PARAMETERS: | : 
; 1465 be 1! ARG] = address for data - 
: My 3 3 : ARG2 = Length to read : 
: 148 0530 1 ! IMPLICIT INPUTS: : 
; 149 05 1 10_ CHANNEL ; 
; 134 05 : 1 | OUTPUT PARAMETERS: : 
3 13¢ b2 : : ARG1 = address for data ° 
; 154 0536 1 | IMPLICIT OUTPUTS: 3 
: 135 0537 1} USER_STATUS, I0_STATUS : 
; 157 0539 1 ! ROUTINE VALUE: : 
; 158 0540 1! 0 - tm encountered . 
3 125 bee) : 1 = successful read . 
: 161 O8e§ 1 ' SIDE EFFECTS: : 
3 166 Bete : none : 
; ise pace 1 | ERRORS: ; 
; 165 0547 1! Primary status is I/0 error returned from driver : 
: 166 0548 1! SS$_FCPREADERR - read failure ‘ 
: 167 0549 1 | ; 
: 168 0550 1 i-- : 
: 199 0354 : BEGIN : 
; 171 055 : 
oe to 7 
> 17% 0596 : 
> 175 055 LOCAL ; 
: 176 £34 STATUS; : 10 status : 
; 178 0360 STATUS = ISSUE_I0(IO$_READLBLK, .ADDR, .LEN); | : 
; 180 056¢ IF .STATUS 3 
; 188 564 .STATUS<0,16> EQLU SS$_DATAOVERUN OR .STATUS<0,16> EQLU SS$_ENDOF TAPE | : 
: 18 565 THEN | : 
3 184 366 RETURN 1; | : 
: 185 56 | ; 
a 368 IF .STATUS<0,16> NEQU SS$_ENDOFFILE | : 
; : 297 THEN | : 
: 189 571 STATUSEO] =_. $1, TUS | ; 
; 190 $72 TATUS = + CPREADERR: | ; 


ae 

18-5 Sep ~138% 98: 23: :24 VAX-11 Bliss-32 V4.0-742 5 

14-Sep-1984 6:42 DISKSVMSMASTER: CMTAACP. SRCILOGIO. B32. 79 * (2), 
: 191 73 ERR_EXIT(); 
3 133 74 END; 
3; 19 75 
: 194 ug < yoy A acter 1); 
3 be f RETURN 0; ' tm encountered 
; 139 8 END; ! end of routine | 


LE LOGI 


TRN IO_STATOS, USER-STATUS 
: 10_DONE 
-EXTRN MOUNT_VOL, PRINT-OPR_MSG 
“EXTRN RESET unit, SYS$010W 
-EXTRN SYSSCAKR 


-PSECT SCODES,NOWRT,2 


T 
ENT \Vv04-000\ 
0000 00000 ENTRY yo BLOCK Save nothing : 0516 
7E 04 ac 7D 00002 MOva ADDR =(SP5 : 0560 
21 bp 00006 PUSHL : 
0000v 30 00008 BSBW TSSUE 10 : 
SE OC CO 00008 ADDL2 #12, SP : 
OE 50 £8 OO00E BLBS STATUS, 1$ : 0562 
0838 «BF 50 81 00011 CMPW STATUS. #2104 > 0564 
07 13 00016 BEQL : 
0878 ~=saBF 50 81 00018 CMPW STATUS, #2168 : 
04 12 0001D BNEQ $ : 
50 01 00 0001f 1$ MOVL #1, RO : 0566 
04 000 Q RET : 
0870 8F 50 B1 00023 2$: CMPW TATUS, #2160 : 0568 
OF 13 00028 BEQL $ : 
00006 CF 5 0 002A MOVL STATUS, USER_STATUS : 0571 
00006 CF 0888 BF 3C O0¢F MOVZWL Heiss, USER_STATUS+4 3 097¢ 
00 BF 000 CHMU : 057 
01 DD 00038 3s: PUSHL #1 : 0576 
gi DD 0003A PUSHL #1 : 
E DD 0003c PUSHL SP : 
O000Gv CF 9F 000 E PUSHAB ADJTM : 
000000006 9F 94 FB 0004 CALLS #4, @#SYSSCMKRNL : 
0 b4 90049 CLRL =—_- RO : 0577 
4 00048 RET : 0579 


; Routine Size: 76 bytes, Routine Base: S$CODE$ + 0000 


#2 
3° 
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PUPP PAPAASIIII 


SS 


CAAA IFPIPIPIPIPIPIPIAPIMINIPIA INRIA tt dh 


$2 


060 


to bs be ae ae 


MEW —OOODNOUEWN —OOONOUES WN Oo 


SSSSSSSSSSSSTOSIO SOS SS ORES 


GLOBAL ROUTINE READ_BLOCK_REVERSE (ADDR, LEN) 


ee 


FUNCTIONAL DESCRIPTION: 
This routine reads in reverse a logical record from magnetic tape. 


CALLING SEQUENCE: 
READ _BLOCK (ARG1 , ARG2) 


INPUT PARAMETERS: 
ARG] = address for data 
ARG2 = Length to read 


IMPLICIT INPUTS: 
10_ CHANNE 


L 


OUTPUT PARAMETERS: 
ARG! - address for data 


! IMPLICIT OUTPUTS: 


USER_STATUS 


ROUTINE VALUE: 
0 = tm encountered 


1 = success 


SIDE EFFECTS: 


none 


ERRORS: 


« IO_STATUS 


ful read 


1b-sep-1 
14-Sep-1 


be 18:48:43 


: COMMON _CALL = 


Primary status is I/0 error returned from driver 
sss” FCPREADERR - read failure 


BEGIN 


EXTERNAL REGISTER 
COMMON : 


LOCAL 
STATUS; 


! 10 status 


VAX-11 Bliss-32_ V4.0-742 
DISKSVMSMASTER: CMTAACP. SRCJLOGIO. B32: i? 


STATUS = ISSUE_IO(IO$_READLBLK OR IOSM_REVERSE, .ADDR, .LEN); 


IF .STATUS 


»STATUS<0,16> EQLU SS$_DATAOVERUN OR .STATUS<0,16> EQLU SS$_ENDOF TAPE 


RETURN 1; 


IF _ .STATUS<O,16> NEQU SS$_ENDOFF ILE 
THEN 


USERS STATUS 
USER-STATUSL[1 


£93 * = 33g TVEbREADERR: 


} 
| 


6) 
* (3) 
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1984 02:23:24 VAX-11 Bliss-32 V4.0-742 P 
=1982 95:23:25 DISKSVMSMASTER: CMTAACP. SRCJLOGIO.B32:1> (3). 


ERR_EXIT(); 
END; 


ere pt oom. 1); 
RETURN 0; ' tm encountered 


Wwrn—oO 


END; ! end of routine ‘ 
0000 00000 -ENTRY READ_BLOCK_REVERSE, Save nothing : ° 
7E 06 Ac 7D BRnRe MOVQ ADDR. -(SPY 3 : 
7E 61 8F 9A 00006 MOVZBL #97, =(SP) : ; 
0000v 28 Q00A BSBW SF 10 : ¢ 
SE 9¢ £0 90000 ADDL2 #12, SP : ; 
OF 0 £8 0001 BLBS STATUS, 1$ : : 
0838 F 50 81 0001 CMP STATUS, #2104 ; . 
97 15 0001 BEQL : : 
0878 8F 0 81 OOOIA CMPW = STATUS, #2168 : : 
04 is Boo os BNEQ 2s ; $ 
50 01 00 00021 1$: MOVL #1, RO ; ‘ 
04 00024 RET : ; 
0870 = BF 50 61 00025 2$: CMPW TATUS, #2160 ; 
3 13 808 A BEQL ; 
0000G CF be 002C MOVL STATUS, USER_STATUS : 
0000G CF 0888 8F 3C 00031 MOVZWL aad USER_STATUS+4 : 
0 BF 000 CHMU # : 
1 DD OO03A 35: PUSHL #1 ; 
1 0D 0003¢ PUSHL #1 : 
E Dd 000 f PUSHL : 
0000v CF 9F 0004 PUSHAB ADJTM : 
000000006 9F gs FB opoce CALLS #4, @#SYSSCMKRNL : 
0 04 00048 LRL RO : 
04 0004D T F 


; Routine Size: 78 bytes, Routine Base: SCODE$ + 004C 


: 263 0644 1 


1B-sep-1964 09:25:24 YANCY Btinec32 v4.-742 Page 8 


8 
3° 


| 

; 265 5 GLOBAL ROUTINE WRITE_BLOCK (ADDR, LEN) : COMMON CALL NOVALUE = | 

; 85 § : i++ 

; 63 § ii FUNCTIONAL DESCRIPTION: 

: 4 ? : This routine writes ene logical block. 

; re ; 1 ' CALLING SEQUENCE: 

3 7 ? ! } WRITE_BLOCK(ARG1 ,ARG2) 

: 275 5 1! INPUT PARAMETERS: 

3 76 § 1! ARG1 = address of data block to write 

: i 2 : : ARG2 = Length of data block to write 

; 8 26 1 | IMPLICIT INPUTS: 

; 80 9 10_ CHANNEL 

: 28 0662 1 | OUTPUT PARAMETERS: 

$ 6s bees : one block written 

: 285 bees 1} IMPLICIT OUTPUTS: 

3 286 0666 1! IO_STATUS, USER_STATUS 

3; 287 0667 1! 

: 288 0668 1 | ROUTINE VALUE: 

3 44 308? ! none 

> 291 4 1! SIDE EFFECTS: 

3 § Le; 1! SS$_FCPWRITERR - write failure 

3 9 0675 1! 

3; 294 0674 1 !<- 

: 295 0675 1 

: 39 0676 BEGIN 

: 298 O68 EXTERNAL REGISTER 

: 99 0679 COMMON_REG; 

: 301 0681 LOCAL 

; Og Oees STATUS; ' 10 status 

; 0% 4 STATUS = ISSUE_IO(IOS$_WRITELBLK, .ADDR, .LEN); 

; 06 0686 Mehot .STATUS AND .STATUS<0,16> NEQ SS$_ENDOF TAPE 

: 308 

; 3 BE eR “SATE, .STATU 

: 10 9690 at STATUS(1) = SS$_ Pe eURITERR: 

Zi ; 

: 314 0694 END; ! end of routine | 
i 


0000 000 LENTRY WRITE_BLOCK, Save nothin 5 0645 
7E 06 Ace 9 Booos WOVa. ADDR. 7=(SP)’ . : 0684 


k 5 
LOGI 16-Sep-1984 3:24 VAX-11 Bliss-32 V4.0-742 
ibe 800 14 aaa Hi 95: g ‘45 DISKSVMSMASTER: CMTAACP. SRCILOGIO. B32. a 
0 pd 000 PUSHL #32 
oodov 4 $008 BSBW 1$SuE 10 
SE ¢ CO 00008 ADDL2 SP 
1 8 9005 BLBS STATUS, 1$ 
0878 «BF 0 8 01 CMPW 80s STATUS. #2168 
OF ; 0 1 BEQL 
000G CF p 1 MOVL § STATUS, USER_STATUS 
0006 CF 08a0 ar C O1D MOV ZL #3008, USER_STATUS+#4 
Be 8056 1$ RET 


; Routine Size: 39 bytes, Routine Base: SCODES + 009A 


; 315 0695 1 


18-Sep-1984 02:23:26 VAX=11_BLiss-32_v4.0-742 Pa “A 
Ve=$ep=1986 13:46:62 DESKSVMSMASTERSEMTAACP-SRCILOGIO.B32¢1%" (49. 


GLOBAL ROUTINE SPACE (NUMBER) : COMMON_CALL = 


'e¢ 


i FUNCTIONAL DESCRIPTION: 
This routine spaces a given number of records in either direction. 


CALLING SEQUENCE: 
SPACE (ARG1) 


INPUT PARAMETERS: 
ARG1 = number of records to space 
( positive means forward space, negative means backspace ) 


IMPLICIT INPUTS: 
10_ CHANNEL 


38 
3° 


ARAVLSSRIE 


OUTPUT —— 


SSO 


IMPLICIT OUTPUTS: 
IO_STATUS, USER_STATUS 
Tape positioned accordingly 


ROUTINE VALUE: 
0 - end of file 
1 = successful 


SIDE EFFECTS: 
| 


SAN NN 
Ot at at 


MOMITUPON 


SOOWDNAVES WN $C ODNAUES WN (OO ONOUSWNOOe 


SSS_FCPSPACERR - space failure 


BEGIN 

EXTERXAL REGISTER 
COMMON _REG; 

LOCAL 


P ' number of tape marks 
STATUS; i jo status 


STATUS = ISSUE_IO(IOS_SKIPRECORD, .NUMBER, 0); 


MEW 30 CONOUE WN O OONOUS WOO MEUM OC OONOUS WN "O0OO~ 


SOOOSOOCOOOCOCOOCOCOOCOOOCOOCOOOOOOCO OOOO OOOC OOOO OOOOOOoOO 
PPP PPR PANNA AAA, 
INLAPORNORORNOND: 
ws 
BEBE FB MAMAN ININPININININININININIA YD a a tk kt tt tt 


Be Se Se Se ee Se Ge Ge Se Se Se Ge See Se Ge Ge Se Se Se Ge Se Se Se Se Se Ge Se Se Ga Ge Se Ge Se Ge Se Se Se Se Se Se Se Se Oe Oe Se Se Se Se Se oe Oe Se Se Se Sees 


4 IF NOT .STATUS 
THEN 

me BEGIN 

744 IF .STATUS<O,16> EQL SS$_ENDOFFILE 

745 THEN 

74 BEGIN ; 
3 5 ™ = 1; ! encountered one spacing forward 
0 74 IF NUMBER LSS 0 
71 750 THEN ‘ 
i 751 M=-1; ! encountered one backspacing 
7 752 


PAWN 


pi | 


CISSSISALAV ASS 


a 5 

16-Sep-1984 3:24 

1e-808- 138s 9S: 28:25 
end of file indicates tape mark encountered 


KERNEL CALL (ADJTM, 1); 
RETURN 0; 


END; 
IF «STATUS<0,16> EQL SS$_ENDOF TAPE 
RETURN 1; 
USE nSTaTUSEAS “§ TATUS; 
USE R-STATUSL1 S$_FCPSPACERR; 
RETURN 1; 
END; ! end of routine 
0004 00000 -ENTRY SPACE, Save R2 
7E D4 00002 CLRL = = (SP) 
04 AC DD 00004 PUSHL NUMBER 
26 bb 00007 PUSHL #38 
0000v 30 00009 SBW ISSUE 10 
SE 0c ¢O 0000C ADDL2 #12, SP 
52 50 00 0000F MOVL RO 
3A 32 E8 90012 BLBS STATUS, 3$ 
0870 «BF 52 81 0001 CMPW STATUS, #2160 
1E iF QOO1A BNEQ $ 
50 01 D0 0001C MOVL #1, TM 
04 AC D5 90015 TSTL NUMBER 
03 18 00022 BGEQ $ 
50 gi CE 00024 MNEGL #1, 
0 DD 00027 1$: PUSHL 1M 
91 DD 00029 PUSHL #1 
E DD 00028 PUSHL 
0000v CF 9F 0002D PUSHAB 
000000006 9F 04 Fe 0031 
19 1 99 BRB 
0878 8F 52 Bi 0003A 28: CMPW TATUS, #2168 
: 13 0003F BEQL 
0000G CF 0 0041 MOVL § 
00006 CF 0898 BF 3C 00046 MOVZWL i 
0 BF 00040 CHMU 
50 1 BO GF 3$: MOVL 
4 005 RET 
50 D4 93 4$: CLRL = RO 
04 000 RET 


Routine Base: S$CODE$ + 00C1 


ADJTM 
CALLS #4, @#SYSSCMKRNL 


TATUS, USER_STATUS 
200, USER_STATUS+4 


$-32 V4.0-742 
TER: CMTAACP.SRCILOGIO. B32; r 
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VOe-000 
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0772 #1 
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18.58 -1984 02:23: 
12-08-1382 98:22: 
GLOBAL ROUTINE WRITE_TM : NOVALUE LSWRITE_TM = 
'e¢ 


if} 


FUNCTIONAL DESCRIPTION: 
This routine writes one tape mark. 


ceasea FEOUENCE: 
WRITE_TM() 


INPUT PARAMETERS: 
none 

IMPLICIT INPUTS: 
10_ CHANNEL 

OUTPUT Fa appecics 


IMPLICIT OUTPUTS: 
IO_STATUS, USER_STATUS 
Tape mark written, tm count incremented. 


ROUTINE VALUE: 
none 


SIDE EFFECTS: 
SSS_FCPWRITERR - write failure 


BEGIN 
EXTERNAL REGISTER 
CCMMON 3 
LOCAL 
STATUS; ! jo status 
STATUS = ISSUE_IO(IOS_WRITEOF, 0, 0); 
THEN »STATUS AND .STATUS<0,16> NEQ SS$_ENDOF TAPE 


USERS STATUS 


£3 = .STATU 
wet Hat te = SS$_FC 


S; 
PWRITERR; 


KERNEL_CALL(ADJTM, 1); 
END; ! end of routine 


7E 7C 00000 WRITE_TM:: 
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LOGI 1f- -Sep-1984 3:24 VAX-11 Bliss=-32 V4.0-742 P 14 
100-000 ease aee PS: 2ee3 Pe talet eae htakce Secstoci0.esen4* chs 
are Te 

00 Sy : BSBW 1$$uE 10 ; 
6 é i appte aretue. 1 : 0814 

0878 be 8 8 CHP STATUS, 13168 : 
G CF 1 MOV STATUS, USER_STATUS : 0817 
fits CF O8A0 «BF BC ROVPUL 4208, USER_STATUS+4 : He 
9 DD 1$ PUSHL #1 : 0822 

1 OD PUSHL #1 ; 

oooov tf SF 00098 PUSHAB ADJTN 

000000006 9F 66 FB 0 ¢ CALLS #4, @#SYSSCMKRNL : 
05 000 RSB + 0823 
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; 44 § 1 

$ te? 1! 
s 651 8 1 i 
; 12 1! 
s 65 > ae 
: 43s O83) 1 | 
3; 4 $ 83 § 1! 
s 45 834 1! 
; 458 0835 1! 
; 459 $ 1! 
; 460 1! 
; 461 838 1! 
; re «| 3 91! 
: 46 840 1! 
; 464 0841 1! 
; 465 pate 1! 
; 466 084 1! 
: 467 0844 1! 
: 468 0845 1! 
; 469 0846 1! 
; 470 0847 1! 
3; 471 0848 1! 
; 47 0849 1! 
3; 47 0850 1! 
: 474 0851 1! 
3; 475 oe26 1! 
; 476 0853 1! 
; 477 0854 1! 
3; 478 0855 (1 

; 479 0856 

; 480 0857 

: 481 0858 

; & 0859 

; 48 0860 2 

> 484 0861 

> 485 rad 

3 086 

3; 487 0864 

3 0865 

3; 489 086 
ety nae 

; 49 bBee 

: 49 + tA 

3 494 871 

: 495 O86 

; 496 +44 

3; 497 74 

; 498 75 

; 499 6 

: 500 7 

; $01 78 

: 50 8 79 

s 5O 880 


1Sseortage 03:28: 


GLOBAL ROUTINE ADJTM (NUMBER) : COMMON_CALL NOVALUE = 


++ 


FUNCTIONAL DESCRIPTION: 
This routine adjusts the tm count by the given number. 


CALLING SEQUENCE: 
ADJTM(ARG1), called in kernel mode 


INPUT PARAMETERS: 
ARG1 = signed number to adjust count by 


IMPLICIT INPUTS: 
CURRENT_VCBCVCB$B_TM) 


OUTPUT PARAMETERS: 
none 
IMPLICIT OUTPUTS: 
CURRENT Weary CB$B_TM] 
CURRENT -~VCBLVCBSL_ST_RECORDJ 
ROUTINE VALUE: 
none 


SIDE EFFECTS: 
none 


BEGIN 
EXTERNAL REGISTER 
COMMON_REG; 


LOCAL 


M; ' number of tm's 


™™ = .CURRENT VCBCVCBSB_ ™); 
™ = .TM + .NOMBER; 


Now adjust number so it is a number between 0 and 2 


If .TM GEQ 3 
THEN 


™ = .1M = 3; 
IF .TM LSS 0 
THEN 

™ = .1M + 3; 


CURRENT _VCBCVCB$B8_TM) = 
SURRENT. vVCBCVCBSL-ST TRECORDS = - CURRENT -YCBCUCBSL RECORD); 


end of routine 
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; Routine Size: 41 bytes, Routine Base: SCODES + 0148 
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16-Sep-1984 02:23:24 VAX-11 Bliss-32 V4.0-742 P 
la-Sep- 7 95:22:28 DISKSVMSMASTER: CMTAACP. SRCJLOGIO.B32:1> a 


7 
) 


LOCAL 
CUR_RECORD; 


: save current position 
CUR_RECORD = .CURRENT_UCBCUCBSL_RECORD]; 


ANINOPONOMONONONONIN 2 2 2 


PPADA ADDIE BS EE Ss 
MEAN O OONOUS WN“ OOONOUSWN OO 


; 88 ¢ : GLOBAL ROUTINE ISSUE_10 (FUNCTION, P1, P2) : LSISSUE_IO = 

; 508 4 1 lee 

; 509 > ane 

; 510 § 1 ! FUNCTIONAL DESCRIPTION: 
3 11 1! his routine issues the 1/0 and if the device is offline or 
3 \§ 43 1! the volume is invalid it repositions it. 
.: 89 1! 

3; 5146 Baot 1! 

s 315 0891 1 ! CALLING SEQUENCE: 

3 18 0338 : } ISSUE_IO(FUNCTION,P1,P2) 

s 518 534 1 ! INPUT PARAMETERS: 
: 233 0895 1! ARG1 = function code 
3 0 9596 1! anes - Pl parameter 

; 521 0897 1! ARGS - P2 parameter 

3 5 ¢ +983 1! 

. > 0899 1 ! IMPLICIT INPUTS: 

; 526 0900 1! none 

:; 525 0901 1! 

... = $ 090 1 ! OUTPUT PARAMETERS: 

 s 0903 1! none 

; 528 0904 1! 

; 529 0905 1 ! IMPLICIT OUTPUTS: 

; > 0906 1! none 

; 531 0907 1! 
3 236 0908 1 ! ROUTINE VALUE: 

; 53 909 1! 1/0 status 

; 534 0910 1! 

5 232 \) 1 ! SIDE EFFECTS: 

> 9 1! none 

3 So7 9 1! 

; | i= 

3 1 

3 1 $ 

3 ¢ EXTERNAL REGISTER 

: COMMON : 

: 4 

ie 

3 8 

3 9 

3 0 

i BR 

3 4 

: 5 

3 6 4 

3 7 4 

$ 8 4 

3 9 4 

: 560 4 

3 61 4 

; 562 4 


BEGIN 
| 
| 
| 
| 
| 
| 
| 
| 
} 
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WHILE 1 
DO 
BEGIN 
BEGIN 
LOCAL 
STATUS; 
P STATUS = SQIOW(EFN = EFN, CHAN = .10 CHANNEL, 
P FUNC = .FUNCTION OR IOSM CLSERERCE 
8 10SB = JO_STATUS, P1 = .PT, Po = .P2); 


#2 
3° 


SSN NN oo 
ARANASSSIEARE 


; Routine Size: 


578 


oOo 


50 
7E 08 AE 
000000006 60 
0000G CF 
O1A4—soBF 
0254 +=8F 
50 
5E 
5E 
98 bytes, Routine Base: 
0954 1 


RARARERER ERR RR RS 


WO ODONOUESWIN—0O0 


—PRININI AWN & BE 


RETURN 1; 
END; 


IF NOT .STATUS 
10_STATUS = 
ND; 


-IO_LSTAT 


00006 


0080 
00000200 


3 
00006 
00806 


00006 

00006 

00006 
04 


US; 


So 
So 


owoos 


OOOO H-OVNMmoo 


AWTONOOlM — 


oma 


< 
On OWS - 9 -@ -DomMmnsovocVlonNoJg 


ones 


«STATUS; 


IF glO_STATUS<D. 16 NEQ SS$_MEDOFL AND 

RETURN 
REPOSITION(.CUR_RECORD) ; 
END; 


- IO _STATUS<0,16> NEQ SS$_VOLINV 


4 VAX-11 Bliss-32 V4.0-742 Pa age 1 
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! end of routine ISSUE_10 


DO 00000 ISSUE_I0:: 


1$: 


INO 


L 
2$: CMPW 


WMO —"O009 "OW" OOWDOVII*FMGIINOO 
SOOoooooooooooooooooo°oo 


SOoOoOoooCooooooooooooo 


SCODES + 0174 


3$: PUSHL 


CURRENT UCB, RO : 0926 
176(RO) : 
#512, FUNCTION, -(SP) ; 0938 
-(SP5 : 
-(SP) $ 
P2 ; 
P1 : 
=-(SP) : 
{9 STATUS é 
SP) : 
0_ CHANNEL : 
#12, SYS$Q10W $ 
ST : 0940 
STATUS, I0_STATUS 3: 0942 | 
O_STATUS, #420 > 094 
O_STATUS, #596 : 
10. STATUS, RO 3: 0947 
CUR_RECORD : 0949 
REPOSITION 3 
#4, SP 3 
; 0928 
#8, SP 3; 0953 


a ik kk et a et ot ots st 
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16-Sep-1984 1:23:26 VAX-11 BLi secre ey 4.0-742 

eaeer ihe PSiksik5 | Peek taleteacMtaRce acsocro.esect «bs 
GLOBAL ROUTINE SPACE_TM (NUMBER) : COMMON.CALL NOVALUE = 


ee 
i 


i FUNCTIONAL DESCRIPTION: 
is routine spaces a given number of tm's in either direction. 


i CALLING SEQUENCE: 
SPACE_TM(NUMBER) 


i INPUT PARAMETERS: 
ARG] = number of tm's to spac 
(if negative, space backward. if positive, space forward.) 


IMPLICIT INPUTS: 
10_ CHANNEL 


#2 
s° 


OUTPUT nn 
none 


IMPLICIT —e 
™ c , meronented to reflect tape postioned beyond the tm specified 
10_ STATUS. USER_STATUS 


ROUTINE VALUE: 
none 


SPOS eS SSS SSSS SSSR BRR 


o 
SF 


60 SIDE EFFECTS: 


SS$_FCPSPACERR - space failure 


BEGIN 
EXTERNAL REGISTER 
COMMON_REG; 
ee 
SyS$aio : ADDRESSING_MODE ‘ABSOLUTE); 


a a a ts nt st 


CAL 
CUR_RECORD, ' current position of tape 
STATUS; i jo status 


CUR_RECORD = .CURRENT_UCBCUCBSL_RECORD]; 
WHILE 1 
DO 


DONO VULSWN “OO OONOUSWwN—O 
wn S33333 
AAA AAA PPOPIPIPIPUPEIPNPIPINIIIIII a at at tt at a tt ss 


CUR 


ENT VCBCVCBSL_VPFLJ, VVPSL_NO_TM) = .NUMBER; 


ot C 

= TOs he OR 1OSM_CLSEREXCP 

te = BBLOCKC CURRENT _VCBLOCBSL_VPFLI, VVPSL_STATUS), 
ADR = UNBLOCK SP ACE 
= 


vuvuvvU 


PAPA AAAOAAAAAAAAAAAAAAAAAAO 


8 ae ab we at it 4 2 2 
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1h-s8 1984 02:23:24 VAX-11 Bliss-32 V4.0-742 Page 
12-88-13 96:23:85 DISKSVMSMASTER:CMTAACP. SRCILOGIO.B32:1> R: 
Block the process to wait for function to be completed 
BLOCK (SF IELDMASK (VCBSV_WAIREWIND)); 
STATUS = .BBLOCKC.CURRENT_VCBCVCBSL_VPFLJ, VVPSL_STATUS); 
IF .STATUS<O0,16> NEQ SS$_MEDOFL AND .STATUS<0,16> NEQ SS$_VOLINV 


EXITLOOP; 
REPOSITION(.CUR_RECORD); 
END; 


-o 


o 


> 


VIEW (OOD NOAOU SUN ( OOONOULS UM 


Ay «STATUS AND .STATUS<0,16> NEQ SS$_ENDOF TAPE 


BEGIN 
USER_STATUS 9) = .STATUS 
= $S$_FCPSPACERR; 


USER-STATUSL1 $_F 
ERR_EXIT(); 


2) eeleeenteeadiate «NUMBER) ; 


RAP WO O00 NO Pun ODO 


RARDARARAD RE RE RR Re Ree 
Ot et a a 2a 2 
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! end of routine 


~-EXTRN BLOCK, SYS$QI0 


000¢ 00000 .ENTRY SPACE_TM, Save R2,R3 : 0955 
50 00006 CF DO 000¢ MOVL CURRERT_UCB : 1000 
5 0080 CO 00 0000 MOVL 176(RO)> CUR_RECORD ; 
50 C AB 0dO 900¢ 1$ MOVL § 60(CURRENT VTB), RO > 1005 
01¢c6 «C0 4 AC 00 0001 MOVL NUMBER, 452(R0) 3 
Fe oe Soole TC ett = 
7E D4 OO1A CLRL = = (SP) ; 
04 AC DD 0001C PUSHL NUMBER : 
5B DD Ooi PUSHL CURRENT_VCB ; 
OOOv CF OF 1 PUSHAB UNBLOCK SPACE ; 
19¢ co i 0025 PUSHAB 412(RO) ; 
7E 38 F 3C 00029 MOVZWL #549, -(SP) F 
% FF Pe St 
000000006 00 os FB CALLS Hl , SYS$Q10 _ 
00006 cr a: 09 CALLS BLOCK ; 
0 3¢ D 4 MOVL  60(CURRENT_VCB), RO + 1017 
52 019¢ D 4 MOVL 412(RO), STATUS ; 
01A4—soBF 81 04 CHP TATUS, #420 : 1019 
0254 «= 8F 2 ej CMPW SATUS, #596 ; 
A 12 BNEQ $ ; 
; p 9 2$ PUSHL CUR_RECORD : 1023 
se RGR AREER SBM ggrtgztion | 
Ag ‘j ai BRB 1$ > 1002 


; Routine Size: 


661 


142 bytes, 


1036 1 


0878 


Bo00¢ 


000090006 


Routine 


i 
om GY 
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oF FEEF ' 


Base: SCODES + 0106 


iiss 


3$: 


13he 93:28:83 «| MN bShAS eRe Ht 
LBS STATUS, 4 
MPW = STATUS, #2168 
Seve Star S, USER. STAT 
MOV IWL 43000, USE 3 RT ATUSs4 
CHMU 
PUSHL NUMBER 
PUSHL #1 
PUSHL SP 
SHAB ADJTM 
CALLS #4, a#SYSSCMKRNL 


V4.0-7 
MTAACP. 


*Sactioci0.832-4%" (9) 


1035 


| 


wef 


& g° 


4 bei } 3 } GLOBAL ROUTINE REPOSITION (NO_RECORD) : LSREPOSITION NOVALUE = 
ORR Li 

: $e 1041 1 ! FUNCTIONAL DESCRIPTION: 

5 298 1 § 1! This routine mounts the device that is offline and repositions 

: 1 1! to the current position. 

; £55 1044 1! 

; of) ; 5 : CALLING SEQUENCE: 

: ore : § + | REPOSITION(ARG1) 

3 ore 1 rk 1 ! INPUT PARAMETERS: 

3 of? : 33 ! ARG1 = number of record to position to 

; gi$ 1051 1 § IMPLICIT INPUTS: 

3 o78 1926 1! CURRENT_UCB = address of current unit control block 

; on 1927 : CURRENT_VCB = address of current volume control block 

: 681 1055 1 ! OUTPUT PARAMETERS: 

BOE Bl tee 

> 684 1058 1! IMPLICIT OUTPUTS: 

; 685 1323 : none 

; rh 1061 1 ! ROUTINE VALUE: 

BP aE l peat 

: 690 1064 1 | SIDE EFFECTS: 

3 $3) Ms ; none 

: 69 1069 1 | USER ERRORS: 

: 694 1068 1! none 

; 695 1069 1! 

; 696 1070 1 !-- 

3; 697 1071 1 

; 639 1078 BEGIN 

: 700 1074 EXTERNAL REGISTER 

: 701 1075 COMMON_REG; 

: 5 1979 ABEL 

> 704 1078 OFFLINE; 

: re 1980 LOCAL 

; 08 1081 CVT_DEVNAM : VECTOR CMAX_DEVNAM_LENGTH,BYTEJ, ! Converted dev name 
; ye 1936 CVT_DEVNAR_LENGTH : BYTE, t and Length of dev name 
: 710 1084 SAV~ST_REC, 

3; 711 1085 MVL_ENTRY, ! address of cur volume MVL entry 
: ar 1087 VOL; ' current volume 

: 714 1 Bs VOL = .CURRENT_VCBCVCBS$8_CUR_RVN); 

s 715 8 9 SAV_TM = CURRENT Veet vCBse TRY. 

i 718 1090 SAV7ST_REC = .CURRENT_VCBLVCB$i.ST_RECORD; 

; 718 1 4 ! This next call will use the UCB address to get the device's name and 
3; 719 109 ! will fill in the fields with that name and the length of the name. 
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TAACP. SRCJLOGIO.B32; 1° 183 


<= 
on 


a 
: 720 1094 3 
: 4 1 : 2? GET_DEV_NAME (CVT_DEVNAM_LENGTH,CVT_DEVNAM) ; ; 
mR: 4 1 35 ! Set device not mounted since rewind does not currently recognize device ; 
: oe 1098 i offline ; 
; 4 g i 0 MVL_ENTRY = .CURRENT_VCBCVCBSL_MVL] + MVLSK_FIXLEN + ((.VOL = 1) *MVLSK_LENGTH); | ; 
; 728 11 ¢ OFFLINE : ; 
; 729 11 BEGIN | 3 
s (3 1104 3 
; 731 1382 WHILE 1 3 
ee ¢ 11 $ DO 3 
a 1107 4 BEGIN ; 
a 1108 4 3 
3 g 5 1199 2 Send message to operator informing that the device is offline : 
; ra 1111 4 PRINT_OPR_MSG(MOUNS OFFLINE, 0, .CVT_DEVNAM_LENGTH,CVT_DEVNAM) ; ; 
; 738 Wiig 4 KERNEC_CACL(RESET_URIT); : 
; 739 1113 4 : 
; 740 1114 4 ! Mount volume again : 
3; 741 1115 4 MOUNT VOL(. VOL ‘ 
: 74 1116 4 SFIELDMASK(MOUSV_REWIND) + SF IELDMASK(MOUSV_LBLCHECK) + : 
; 74 1117 4 $F IELDMASK (MOUSV_MOUNTERR) ) ; : 
: 746 1118 4 ‘ 
3; «745 1119 4 WHILE 1 ‘ 
; 746 1120 4 dO ° 
: 747 1121 5 BEGIN 
; 748 1186 6 ( 
: 749 11 6 
; 750 1124 6 LOCAL 
3: 751 1125 6 STATUS; 
; P3¢ 1126 6 
; 1127 6 ! Space the number of blocks left to space 
s 1128 6 } 
; 755 P 116? 6 STATUS = SQIOW(EFN = EFN, 
; 756 P1130 6 CHAN = .10_CHANNEL 
3 757 F M13) 6 FUNC = IO$~SKIPRECORD OR IOSM_CLSEREXCP, 
; 758 P 11 § 6 10SB8 = 10 STATUS, 
3 £23 N32 ° Pi = .NO_RECORD - .CURRENT_UCBCUCBSL_RECORD]); 
3; 761 1135 6 IF NOT .STATUS 
: 76 1136 T 
3 £0? 1138 -IO_STATUS = .STATUS); ! directive status | 
3; 765 1139 5 IF .NO_RECORD EQL .CURRENT_UCBCUCBSL_RECORD) 
3 766 1140 2 N 
: oer 134] LEAVE OFFLINE; ! repositioning complete 
; oe 1148 2 IF -J0_STATUS<O. 16> EQL SS$_MEDOFL OR .IO_STATUS<0,16> EQL SS$_VOLINV 
: 4a! 134? ; . CURRENT_UCBCUCBSL_RECORD] GEQ .NO_RECORD 
; 7 1149 EXITLOOP ! start again 
3; 776 1148 ELSE 
3 775 1149 
; 776 1150 IF .1O_STATUS<0,16> NEQ SS$_ENDOFFILE 
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16-Sep-1984 02:23:24 VAK=11 Bliss-32 V4.0-742 4 MAI 
12-88-1382 95:22:23 DISKSVMSMASTER: CRTAACP. SRCILOGIO. B32. ; 9 183 v04 
THEN 

BEGIN 

USER. STATUSEO) = ,10_STATUS 

USER-STATUSL1] = SSS$-FCPREPSIN; 

ERR_EXIT(); 

END; 

END; 


END; ! end offline 
SERNEL CALL (RESTORE POS. -SAV_TM, .SAV_ST REC); 


: end of routine : 

SE 14 ¢2 00000 REPOSITION: : pat ike ; 

7E F AB 9A 00003 MOVZBL SS ecuspent _VCB), VOL + 1088 ; 

7E — AB 9A 00007 MOVZBL 46(CURRENT-VCB), SAV_TM + 1089 : 

0 AB DD 00008 USHL 48(CURRENT-VCB) + 1090 ; 

10 AE 9F OO00E PUSHAB CVT_DEVNAM™ > 1095 : 

10 AE OF 90011 PUSHAB CVT~ =DEVNAM LENGTH : ; 

00006 CF 02 FB 00014 CALLS #26 _DEV_NAME : F 
51 08 AE D0 00019 MOVL vot : 1100 ; 

50 4 BB41 7E 0001D MOVAQ a5 he VCB)CR1], MVL_ENTRY : : 

50 1c CO 900¢8 ADDL2 33 , MVL_ENTRY : : 

10 AE SF 00025 1$ PUSHAB : 1111 : 

7E 10 AE 9A 90088 MOVZBL CVT“DEVNAM_LENGTH, -(SP) : : 

7E D4 0002C CLRL = SB) : F 

0072811C BF bp 0002E PUSHL #7504156 : ; 

00006 30 900 SBW PRINT OPR_MSG : : 

SE 0c CO 00037 ADDL2 #12, SP F : 

gE D4 0003A CLRL > 1112 ; 

E DD 0003Cc PUSHL : ; 

00006 CF 9F 000 PUSHAB RESET UNIT : F 

000000006 9F 03 FB 0004 CALLS #3, @¥SYSSCMKRNL : : 
B DD 0004 PUSHL #11 : 1116 : 

0c AE DD 00048 PUSHL VOL : 1115 : 

0000G CF 9 FB 0004 CALLS # MOUNT_VOL 3 3 
— 7C 9 3 2$: CLRO =-(S§P) . : 1133 : 

7E 7C¢ CLRQ  =(SP) : : 

7E D4 0005 CLRL = = (SP) : : 

50 90006 CF 09 0059 MOVL CURRENT_UCB, RO : : 

38 AE 080 cO : 5 SUBL?  176(RO)> UNO “RECORD, -(SP) : : 

E 7C 0006 CLRO. = = (SP) : : 

06 cr 3 6 USHAB I STATU US : ; 

7E 6 e 3¢ $8 MOVZWL #550, -(SP) : : 

G CF OD PUSHL 10_CHANNEL : : 

1 DD 00074 PUSHL #17 ; ; 

000000006 00 ; 76 CALLS #12, SYS$Q10W : : 
f BLBS STATUS, > 1135 ; 

00006 oF D MOVL § STATUS. al0_STATUS > 1137 ; 
0 00006 CF DO 00085 3s: MOVL § CURRENT_UCB; RO : 1139 : 


N 6 

16-Sep-1984 02:23:24 VAX-11 Bliss-32 V4.0-742 Page 25 
18-808-1382 96:93:25 DISKSVMSMASTER:CMTAACP. SRCILOGIO.B32:1> 183 

0080 co 24 ag i A cMPL NO_RECORD, 176(RO) : 
1 00006 CF 3C 0009 MOVZWL 10_STATUS, R1 7 1143 

01a soBF 1 a 9 CMPW ORT «#42 : 

7 9C BEQL 1$ $ 

0254 8F 1 8 09 CMPW ORT, «#596 : 

iS BEQL 1s 3 
24 «AE 0080 D4 OA CPL 176(R0), NO_RECORD ; 1145 

FF75 31 OAD BRW 1$ : 
0870 8F 31 i 4 4$ CMP RI. #2160 ; 1150 
00006 CF 00006 CF p $08 MOVL IO_STATUS, USER_STATUS + 1153 
0000G CF 0988 er sc o00¢5 MOV ZL #2040, USER_STATUS+4 : 1134 
BA 11 000C BRB 2$ + 1119 
6E DD 000C9 5$ PUSHL  SAV_ST_REC + 1163 

08 AE DD 000CB PUSHL SAV-TM : 

02 DD 000C PUSHL #2 : 

5E DD 6006 PUSHL SP ; 

0000v CF 9F 000D PUSHAB RESTORE POS : 

000000006 9F 95 EB 0006 CALLS #5, a#SYSSCMKRNL : 
SE 0 CO 000DD ADDL2 #32, SP + 1164 

05 900E0 RSB : 


; Routine Size: 225 bytes, Routine Base: SCODES + 0264 


; «791 1165 1 


<z 
ps 


7 
16-5 ~1984 02:23:24 VAX=11_BLiss-32_v4.0-742 p 
Ve=8ep-1984 13:48:42 — DIgKSVNSMASTERSEMTAACP-SRCILOGIO.83254 9° (145 


0000 00000 .ENTRY RESTORE_POS, Save nothing 
2 AB 04 ac 90 90002 MOVB =_:'TM,, 46(TURRENT_VCB) 
AB 08 Ac v0 60007 MOVL REC, 48(CURRENT_VCB) 


; Routine Size: 13 bytes, Routine Base: S$CODE$ + 0345 


3 133 1168 } GLOBAL ROUTINE RESTORE_POS (TM, REC) : COMMON_CALL NOVALUE = ; 
; 795 1198 1 !e4 ; 
3 £38 118 1! ; 
:; 79 1170 1 =! FUNCTIONAL DESCRIPTION: : 
; 798 1171 17! This routine restores the tape position information destroyed by ; 
; 799 1196 1! ASSUME _MOUNTED. : 
; 800 1175 1! : 
; 801 1174 1 ! CALLING SEQUENCE: : 
3 B06 1103 ! RESTORE_POS(ARG1,ARG2), in kernel mode : 
H 04 1199 1 ! INPUT PARAMETERS: 
; 805 1178 1! ARG] = number or tape marks ; 
: id aT 4 : } ARG2 = number of blocks into tape since last tape mark 
: 808 1181 1 =! IMPLICIT INPUTS: 
; 809 11 ¢ 3 address of current VCB 
: 810 11 1! 
s 811i 1184 1 ! OUTPUT PARAMETERS: 
$ sl¢ 1185 1! none 
3 gt 1186 1! 
3 14 1187 1 =! IMPLICIT OUTPUTS: 
3 B12 1138 : CURRENT_VCBCVCB$8_TM] and CURRENT_VCBCVCBSL_ST_RECORD] updated 
; 817 1190 1 ! ROUTINE VALUE: 
; 818 1191 1! none 
; 819 1136 3 
; 820 119 1 ! SIDE EFFECTS: 
; 821 11946 1! none 
s BS¢ 1195 1! 
s Be 1196 1 !-- 
> 824 1197 1 
; 825 1198 BEGIN 
: 826 1199 
; 827 1390 EXTERNAL REGISTER 
: 828 1201 COMMON_REG; 
> 829 1606 
; 8350 120 CURRENT_VCBLVCB$B_TM] = .TM; 
: 831 1204 CURRENT_VCBLVCB$L_ST_RECORD) = .REC; 
; 832 1205 1 END; 
> 1166 
3 1S9? 
: 1204 
: 1205 


@US 
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ROUTINE UNBLOCK_SPACE (VCB) : COMMON_CALL NOVALUE = 


14 
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3 


i FUNCTIONAL DESCRIPTION: 
This routine unblocks after a SPACE_TM has been done. If 1/0 
is canceled, the tape position is updated. 


Seth one poquence 
NBLOCK_SPACE() 


INPUT PARAMETERS: 
ARG1 - address of volume control block 
IMPLICIT INPUTS: 
VVPS$L_NO_TM = number of tape marks positioned. 
f neg then backwards, else forwards.) 
Saved stack and impure area 


OUTPUT PARAMETERS: 
none 
IMPLICIT OUTPUTS: 
CURRENT _VCBCVCB$L_ST_RECORD) 
ROUTINE VALUE: 
none 
SIDE EFFECT: 


Never returns to PC where AST's were enabled. 
Instead it resumes where the blocked request left off. 


BEGIN 


EXTERNAL 
10_PACKET; 


LOCAL 
STATUS; 
EXTERNAL ROUTINE 
DO_ CANCEL : COMMON_CALL, ! cancel i/o ‘ 
LOCK; ! unblock processing 
EXTERNAL REGISTER 
COMMON_REG; 


CURRENT_VCB = .VCB; 


! If cancel 1/0 request came thru while spacing tape mark, then restore 
! UCB address, adjust number of tape marks if successful, and cancel 
request 


IF .CURRENT_¥CBLVCB$V_CANCELIO) 
THEN 


: £33 1 $F ; ante T_uCcB (.CURRENT_VCBCVCB$L_VPBL] + VVPSK_LENGTH + (CURRENT_UCB 
g s + + 

; 838 $9 = USER RST TATUSCO]J)); 

: $98 6 IF .STATUS<0,16> EQL SSS_ENDOFTAPE OR .STATUS 

; 837 | , KERNEL_CALL(ADJTM, .BBLOCKC.CURRENT_VCBCVCBSL_VPFLJ, VVPSL_NO_TM]); 
: 899 1071 ERROR(SS$_CANCEL) 

: 900 127 KERNEL _CACL(DO_ CANCEL); 

; 901 127 10_PACRET = 0;7 

3 908 1274 RETURN; 

; 1275 

> 904 127 END; 

: 905 127 

; aoe ; me Unblock process and continue where request processing left off. 

: 908 1280 UNBLOCK(); 

; 909 1281 1 END; ! end of routine 


: INFO#250 L1:1267 
; Referenced LOCAL symbol STATUS is probably not initialized 


-EXTRN IO_PACKET, DO_CANCEL 
NBLOCK 


EXTRN U 
0004 00000 UNBLOCK, SPACE: ing 
52 000000006 9F 9 00002 MOVAB aMSYSSCMKRNL, R2 
a 04 AC DO 00009 MOVL  VCB, CURRENT vee 
42 0B AB E1 0000D BBC a5, 17 (CURRENT. V 3$ 
50 40 AB 00000000* 8F C1 00012 ADDL3 PeECURRENT ROCBSUSER’ "STATUS>+12>, - 
64(CURRENT-VCB), RO~ 
00006 CF 60 D0 00018 MOVL (RO), CURRENT_UCB 
0878 =F 50 61 90020 CMPW = STATUS, #21687 
03 13 00025 BEQL Is 
13 50 £9 00027 BLBC = STA 
50 3¢ =AB_-~DO 002A 18 MOVL SOCCURRENT.VCB), RO 
0104 ¢O DD 000 : PUSHL 452(RO) 
1 DD 000 PUSHL #1 
E DD 000 PUSHL 
FOBF CF 9F 000 PUSHAB ADJTM 
62 4 F 0 A CALLS #4, SYSSCMKRNL 
00006 CF 0830 8F B D 2$: MOVW #2096, USER_STATUS 
E D4 00044 CLRL == (SP) 
SE DD 0046 PUSHL SP 
00006 cr F 004 PUSHAB DO_CANCEL 
62 3 FB 0004C CALLS #3, SYSSCMKRNL 
00006 CF Dé a3 cLRL 10’ PACKET 
00006 CF 00 FB 8a 3$: CALLS #0, UNBLOCK 
04 00059 RET 


; Routine Size: 90 bytes, Routine Base: S$CODE$ + 0352 


J 
voe-000 e=8ep=1986 $3346 TEKSVMSMASTERSCMTAACP-SRCILOGIO.B32" 1 


14% «135 


3 gt} } ¢ } GLOBAL ROUTINE CHCK_IO_CLR_EXCP : COMMON_CALL NOVALUE = 
; 318 12846 1 !44 
>; 916 1085 1 
; 915 1 § 1 ! FUNCTIONAL DESCRIPTION: 
; a8 1 1! This routine saves the drives characteristics than does 
; 91 1288 1! a Q]0W set mode to the device to ensure that 
; 918 1289 1! all a reads or writes have been posted to the VCB 
; 919 1290 1! before processing continues. This is necessary to ensure consistant 
; 920 1291 1! behaviour between the old Claes of pe erives and the new type 
; 921 1 3 1! ot speak tape protocol. The old _—e drivers will still 
; 9 ¢ 1295 1! all oustanding 10's on the vee s bolocked 10 queue. The new 
; 9 1294 1! vers will or ete these 10's with an error of SS$_SERIOUSEXCP 
: 4 : : Be : } drive the ACP will queue on it's blocked I0 queue. 
: 926 1 3$ 1 ! CALLING SEQUENCE: 
: 927 1298 1! CHCK_I0_CLR_EXCP() 
; 928 1299 1! 
; 929 1300 1 ! INPUT PARAMETERS: 
; 950 1301 1! none 
: Be 1 8 1! 
; 9 g 1303 1 =! IMPLICIT INPUTS: 
8 837 13046 1! 10_ CHANNEL 
; 9 1305 1! CURRENT_UCB 
; 935 1308 1! 
; 936 1307 1 ! OUTPUT PARAMETERS: 
; 937 1308 1! none 
; 938 1309 1! 
; 939 1319 1 ! IMPLICIT OUTPUTS: 
; 940 1311 1! none 
3; 941 13i¢ 1! 
3 org 131 1 ! ROUTINE VALUE: 
; 94 1314 1! none 
> 944 1339 3 7 
; 945 1 1g 1 !e- 
: 946 131 1 
: 947 1318 BEGIN 
; 948 1319 
3 949 1320 EXTERNAL REGISTER 
; 950 135! COMMON ; 
; 951 3 ¢ 
; B26 1 $ LOCAL : oral , 
; 95 1324 SAVE_DEVCHAR : VECTOR (2), ! Gherecsertertes of drive 
: Bee 13 5 STATOS; ' jo statu 
; 226 1 § SAVE _DEVCHAR po] = = “seomecet pret ucese DEVCLASS <0, 32>; 
: 95 1 4 SAVE” DEVCHAR . CURRENT OCBCUCBSL_BEVDEPEND 
: 328 ' 4 STATOS = ISSUE_IO €. 10$_ EP TROBE. cat “DEVCHAR, 0s: 
; 960 1331 1 END; 
00 ENTRY CHCK_IO_CLR_EXCP, Save nothing 
SUBL2 #4, SP 


Sep-1 : VAX=-11 Bliss-32 V4.0-742 
1 seo-1984 93: 8:4 DISKSVMSMASTER: CMTAACP. SRCILOGIO. 832; 79 ma ) 
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; Routine Size: 


; 961 


29 bytes, 


1332 «#1 


50 
04 AE 


Routine Base: 


ngs 
A 

x & 
x 

FDAC 


SCODES + O3AC 
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GLOBAL ROUTINE COMPLETE_VIO : COMMON_CALL NOVALUE = 


lee 


Sl Re et tet ee ee er te te te? ee ee 


FUNCTIONAL DESCRIPTION: 
This routine gets all 1/0's queued off the VCB's blocked queue and 
tae a them to the user with an ABORT status 


CALLING SEQUENCE: 
KERNEL _CALL(COMPLETE_VIO) 


INPUT PARAMETERS: 
none 

IMPLICIT INPUTS: 
none 

OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 

ROUTINE VALUE: 


none 


SIDE EFFECTS: f 
ALL outstanding 10's will be completed in error to the user. 


BEGIN 
ahi Regs 


3; 


LOCAL 

PACKET : REF BBLOCK; ! address of io request packet 
WHILE 1 
i 8) 

BEGIN 

IF REMQUE (.CURRENT_VCBCVCBSL_BLOCKFL], PACKET) 

THEN EXITLOOP; 

make the error an ABORT status 


PACKETCIRPS OST1] = SS$_ABORT: 
USER_STATUS 0 -PACKETE TRPSL_I0ST 11]: 
USER“ STATUSL1 “ParKert IRPSL- 10ST2 
KERNEL CALL (10 _DONE, » PACKET) 


4.0-742 
TER: CMTAACP. SRCILOGIO. B32:1 


7 
LOGI $-$ see 1984 3: VAX-11 Bliss-32 v4. 
yoe-000 3op- 198 §Sida:k3 — BIScSVMGMASTERSEMTA 
0004 ENTRY COMPLETE VIO, Save R2 
52 00 : OF 18: REMQUE BCCURRERT.vEB) PACKET 
0065 Ag 2 08 MOVL #44, 56(PACKET) 
G CF 38 D § MOVG S6(PACKET), USER_STATUS 
dD PUSHL PACKET 
dD 14 PUSHL #1 
coooc fF SP EBEIE = PUBS. 75. oow 
000000006 9F 64 8 1 CALLS #4, @#SYSSCMKRNL 
DD 4 § BRB 1$ 

4 2s: RET 
; Routine Size: 38 bytes, Routine Base: SCODES + 03C9 
: 101 1 1 END 
3 1019 1389 0 ELUDOM 
: PSECT SUMMARY 
3 Name Bytes Attributes 
: SCODES 1007 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
Tera sa Ee Pe ee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped me 
; _$255$0UA28:(SYSLIBILIB.L32;1 18619 45 0 1000 00:01.9 
: Information: 1 
; Warnings: 
; Errors: 
: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:LOGIO/OBJ=0BJ$:LOGIO MSRC$:LOGIO/UPDATE=(ENH$:LOGIO) 

Size: 


Run Time: 
; Elapsed Time: 


1007 Bere 0 data bytes 


1: 


0-742 
ACP.S 


- SRCJLOGIO.B32; A a 


eee eee 


vbe-800 


; Lines/C nt 
; Lexemes/ 1 


Eenpthakton e477 126 ps 


3080 


pages 
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